home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ADA Programming Guide
/
ADA Programming Guide.iso
/
ada_a9x
/
codes.ada
< prev
next >
Wrap
Text File
|
1996-01-30
|
325b
|
18 lines
WITH Ada.Text_IO, VT100, My_Int_IO;
USE Ada.Text_IO, VT100, My_Int_IO;
PROCEDURE Codes IS
BEGIN
FOR I IN 0 .. 255 LOOP
Put(I,3,10);
Put(" ");
IF (I >= 7 AND I <= 13) OR (I >= 26 AND I <= 27) THEN
Put(" ");
ELSE
Put(character'val(I));
END IF;
Put(" ");
END LOOP;
New_Line;
END Codes;